Imports System.IO
Public Class frmSECOND_MONITOR
    Public Sub NewShow()
        Me.StartPosition = FormStartPosition.Manual
        Dim allScreens As Screen() = Screen.AllScreens
        Dim currentScreen As Screen = Screen.FromControl(Me)
        Dim currentIndex As Integer = Array.IndexOf(allScreens, currentScreen)
        Dim newScreenIndex As Integer = (currentIndex + 1) Mod allScreens.Length
        Dim newScreen As Screen = allScreens(newScreenIndex)
        Dim bounds As Rectangle = newScreen.Bounds
        Me.SetBounds(bounds.X, bounds.Y, bounds.Width, bounds.Height)
        Dim FilePath As String = Application.StartupPath + "\" + PublicVariable.VideoFile
        If File.Exists(FilePath) Then
            Me.AxWindowsMediaPlayer1.URL = FilePath
            Me.Show()
        End If

    End Sub

End Class